home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / VTP031.ZIP;1 / TEST.ZIP / TTEXT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-08-25  |  371 b   |  40 lines
  1. program ttext;
  2.  
  3. uses
  4.  
  5.   vtypes,
  6.   vgen,
  7.   vdos,
  8.   vcrt,
  9.   vtext;
  10.  
  11. var
  12.  
  13.   f : TEXT;
  14.   S : STRING;
  15.  
  16. begin
  17.  
  18.   ClrScr;
  19.  
  20.   VTextAssign( 0, F, 'bangsof2.exe' );
  21.   Reset( F );
  22.  
  23.   While Not eof( F ) Do
  24.   BEGIN
  25.  
  26.     Readln( F , S );
  27.  
  28.     WriteLn( S );
  29.  
  30.     If Pos( 'RESOURCE_BEGIN', S )<>0 Then
  31.       ReadKey;
  32.  
  33.  
  34.   END;
  35.  
  36.   Close( F );
  37.  
  38.  
  39. end.
  40.